home *** CD-ROM | disk | FTP | other *** search
/ Cigar Companion Interactive / Cigar Companion Interactive.iso / pc / cigars.dxr / BUYING AND STORING_216.ls < prev    next >
Encoding:
Text File  |  1997-08-27  |  373 b   |  16 lines
  1. global gStoreDBIndex
  2.  
  3. on genStates
  4.   set tempText to EMPTY
  5.   repeat with x = 1 to count(gStoreDBIndex)
  6.     set stateCode to getPropAt(gStoreDBIndex, x)
  7.     if x = 1 then
  8.       set tempText to stateCode & RETURN
  9.       next repeat
  10.     end if
  11.     put stateCode & RETURN after tempText
  12.   end repeat
  13.   put "No Preference" after tempText
  14.   put tempText into field "popField"
  15. end
  16.